home *** CD-ROM | disk | FTP | other *** search
/ Know Your Hockey - The Greatest Player Resource / Know Your Hockey: The Greatest Player Resource.iso / hockey / director / ssqcst.cst / 00029_Script_StartMovie Scripts < prev    next >
Text File  |  1998-09-28  |  656b  |  34 lines
  1.  
  2. on startmovie
  3.   global gXCast,gNumPlayers,gb, gDNS, gProduct
  4.   
  5.   
  6.   
  7.   -- the startmovie script now sets gXCast by itself
  8.   repeat with x = 6 to 47
  9.     puppetsprite x, 1
  10.   end repeat
  11.   set the itemdelimiter = "."
  12.   set temp = item 1 of the movieName
  13.   set the itemdelimiter = ","
  14.   if temp = "Ssqintro" then set temp = "SSQI"
  15.   set gXCast = temp & "ct"
  16.   -- find the number of 
  17.   repeat with x = 11 to 17
  18.     set p = x 
  19.     if the membernum of sprite x = 0 then exit repeat
  20.     
  21.   end repeat
  22.   set gNumPlayers = p-11
  23.   set gb = empty
  24.   set gb = new(script "ButtonsObject")
  25.   
  26.   
  27. end
  28.  
  29.  
  30. on stopmovie
  31.   puppetsound 2,0
  32. end
  33.  
  34.